home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64 / lores editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  109 lines
  1. 10 a=a+1:ifa=1thenload"lores",8,8
  2. 15 ifa=2thenload"mpkopier",8,8
  3. 20 poke53281,0:poke2,6
  4. 21 print"[147][154]lores editor
  5. 30 [153]"by helmut burgemeister
  6. 40 print"1. bild laden
  7. 50 [153]"2. bild speichern
  8. 60 print"3. bild editieren
  9. 70 [153]"4. bild einfaerben
  10. 80 print"5. dos kommandos
  11. 100 [151]198,0:[146]198,1:[161]a$
  12. 110 a[178][197](a$)
  13. 120 [139]a$[179]"1"[176]aa$[177]"5"[167]100
  14. 130 [145]a[137]1000,2000,3000,4000,5000
  15. 1000 [153]"loadbild laden"
  16. 1010 [133]"bildname";b$
  17. 1020 [153]"mit farbe laden (j/n)
  18. 1030 gosub9000
  19. 1040 ifa$<>"j"anda$<>"n"then1030
  20. 1050 ifa$="j"thenfa=1:goto1100
  21. 1060 fa=0
  22. 1100 poke2,6:sys828+6:open2,8,2,b$+",p,r":gosub8000:close2:ifa<>0then20
  23. 1105 open2,8,2,b$+",p,r"
  24. 1110 get#2,a$:get#2,a$
  25. 1120 fort=0to999
  26. 1130 get#2,a$:ifa$=""thena$=" "
  27. 1140 poke1024+t,asc(a$)
  28. 1150 next
  29. 1160 close2:sys828
  30. 1170 iffa=0thengoto20
  31. 1180 open2,8,2,b$+".,p,r":gosub8000:close2:ifa<>0then20
  32. 1185 open2,8,2,b$+".,p,r"
  33. 1190 get#2,a$:get#2,a$
  34. 1200 fort=0to999
  35. 1210 get#2,a$:ifa$=""thena$=" "
  36. 1220 poke55296+t,asc(a$):next:close2
  37. 1230 sys828+12:goto20
  38. 2000 print"[147]bild sichern
  39. 2010 [133]"bildname";b$
  40. 2020 [153]"mit farbe sichern (j/n)
  41. 2030 gosub9000
  42. 2040 ifa$<>"j"anda$<>"n"then2030
  43. 2050 ifa$="j"thenfa=1:goto2100
  44. 2060 fa=0
  45. 2100 sys828+3:open2,8,2,b$+",p,w":gosub8000:close2:ifa<>0then20
  46. 2105 open2,8,2,"@:"+b$+",p,w"
  47. 2110 print#2,chr$(0);:print#2,chr$(4);
  48. 2120 fort=0to999
  49. 2140 print#2,chr$(peek(1024+t));
  50. 2150 next:print#2,chr$(13)
  51. 2160 close2
  52. 2170 iffa=0thengoto20
  53. 2175 sys828+9
  54. 2180 open2,8,2,b$+".,p,w":gosub8000:close2:ifa<>0then20
  55. 2185 open2,8,2,"@:"+b$+".,p,w"
  56. 2190 print#2,chr$(0);:print#2,chr$(216);
  57. 2200 fort=0to999
  58. 2220 print#2,chr$(peek(55296+t));:next:close2
  59. 2230 goto20
  60. 3000 poke2,6:sys828+3:sys828+6
  61. 3010 x=40:y=24:c=6:poke53280,p
  62. 3020 ify/2<>int(y/2)thenz=y-1:goto3022
  63. 3021 z=y
  64. 3022 h=peek(1024+((x/2)+(40*(z/2))))
  65. 3025 ifp=0orp=1thensys49152,x,y,1,c
  66. 3027 ifp=0orp=2thensys49152,x,y,0,c
  67. 3030 ifp=0thenpoke1024+((x/2)+(40*(z/2))),h
  68. 3040 j=peek(56320)
  69. 3050 if(jand1)=0theny=y-1:ify=-1theny=0
  70. 3060 if(jand2)=0theny=y+1:ify=50theny=49
  71. 3070 if(jand4)=0thenx=x-1:ifx=-1thenx=0
  72. 3080 if(jand8)=0thenx=x+1:ifx=80thenx=79
  73. 3090 if(jand16)=0thenp=p+1:poke53280,p:ifp=3thenp=0:poke53280,p
  74. 3095 ifpeek(203)=1thensys828:goto20
  75. 3097 ifpeek(203)=6thenpoke2,peek(55296)+1:sys828+6:c=peek(2)
  76. 3098 ifpeek(2)>253thenpoke2,0
  77. 3099 ifpeek(203)=4thenpoke53281,peek(53281)-1
  78. 3100 goto3020
  79. 4000 iffa=0thenprint"[147]farbe im speicher uebernehmen (j/n)
  80. 4002 [139]fa[178]0[167][141]9000:[139]a$[178]"j"[167]fa[178]1
  81. 4010 [158]828[170]3:[151]2,6:[158]828[170]6:p[178]0:f[178]0
  82. 4015 [139]fa[178]1[167][158]828[170]9
  83. 4017 x[178]20:y[178]12:c[178]6:[151]53280,p
  84. 4020 h[178][194](55296[170]x[170]40[172]y)
  85. 4030 [139]p[178]0[167][151]55296[170]x[170]40[172]y,h[171]1
  86. 4040 [139]p[178]0[167][151]55296[170]x[170]40[172]y,h
  87. 4050 [139]p[178]1[167][151]55296[170]x[170]40[172]y,f
  88. 4053 j[178][194](56320)
  89. 4055 [139](j[175]1)[178]0[167]y[178]y[171]1:[139]y[178][171]1[167]y[178]0
  90. 4060 [139](j[175]2)[178]0[167]y[178]y[170]1:[139]y[178]25[167]y[178]24
  91. 4070 [139](j[175]4)[178]0[167]x[178]x[171]1:[139]x[178][171]1[167]x[178]0
  92. 4080 [139](j[175]8)[178]0[167]x[178]x[170]1:[139]x[178]40[167]x[178]39
  93. 4090 [139](j[175]16)[178]0[167]p[178]1[171]p:[151]53280,p
  94. 4100 [139][194](203)[178]5[167]f[178]f[170]1
  95. 4110 [139][194](203)[178]1[167][158]828[170]12:[137]20
  96. 4120 [139][194](203)[178]4[167][151]53281,[194](53281)[171]1
  97. 4130 [139][194](203)[178]6[167][151]2,[194](55296)[171]1:[158]828[170]6:h[178][194](2)
  98. 4140 [139]h[177]254[167][151]2,0:h[178]0
  99. 4150 [137]4020
  100. 5000 [153]"loaddos kommandos
  101. 5010 print"command:  ";:poke631,34:poke198,1:inputa$
  102. 5020 open1,8,15:print#1,a$:close1:gosub8000:goto20
  103. 8000 open1,8,15:input#1,a,a$,b,c
  104. 8010 ifa<>0thenprint"status: "a" "a$" "b" "c
  105. 8020 close1:ifa<>0thengosub9000
  106. 8030 return
  107. 9000 poke198,0:wait198,1:geta$:return
  108. 10000 printpeek(203);:goto10000
  109.